home *** CD-ROM | disk | FTP | other *** search
/ Interplay's Learn to Program Basic (Review Copy) / Learn to Program Basic Review Copy (Interplay)(June 23, 1998).ISO / pc / ltpbasic / projects / dragon.bas < prev    next >
BASIC Source File  |  1998-04-08  |  657b  |  49 lines
  1. Cls
  2.  
  3. dragonX = 50
  4. dragonY = 50
  5.  
  6. dragon = LoadSprite("DrgnSmlR")
  7.  
  8. SetSprite dragon To 50,50
  9. CycleSprite dragon
  10.  
  11. Background "SPACE199"
  12.  
  13. RunGame = 1
  14.  
  15. While RunGame
  16. If KeyDown("CURUP") Then
  17. dragonY = dragonY - 1
  18. EndIf
  19.  
  20. If KeyDown("CURRIGHT") Then
  21. SetSprite dragon Flipped
  22. dragonX = dragonX + 1
  23. EndIf
  24.  
  25. If KeyDown("CURDOWN") Then
  26. dragonY = dragonY + 1
  27. EndIf
  28.  
  29. If KeyDown("CURLEFT") THEN
  30. SetSprite dragon Normal
  31. dragonX = dragonX - 1
  32. EndIf
  33.  
  34. If dragonX < 0 Then dragonX = 0
  35. If dragonX > 300 Then dragonX = 300
  36.  
  37. If dragonY < 0 Then dragonY = 0
  38. If dragonY > 220 Then dragonY = 220
  39.  
  40. SetSprite dragon To dragonX, dragonY
  41.  
  42. If KeyDown("Q") THEN
  43. RunGame = 0
  44. EndIf
  45.  
  46. Wend
  47.  
  48.